home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr50 / nu1n.zip / BAND.BAS next >
BASIC Source File  |  1993-05-14  |  4KB  |  109 lines
  1. 0100    ' -- SELECTED BASICA ROUTINES FOR THE IBM-PC    --
  2. 0110    ' -- AND CLONES FOR USE WITH ICOM CI-V SYSTEM --
  3. 0120    ' -- AND THE COVOX VOICE RECOGNITION SYSTEM    --
  4. 0130    ' --                              BY NU1N      --
  5. 0140    '
  6. 1000    ' ------------------- CI-V CODE --------------------- 
  7. 1010    PRE$ = CHR$ (254) + CHR$ (254) 
  8. 1020    EOM$ = CHR$ (253)
  9. 1030    TOADR$ = CHR$ (28)
  10. 1040    FROM$ = CHR$ (1)
  11. 1050    STFREQ$ = CHR$ (5)
  12. 1060    GOTO 6010
  13. 1070    '
  14. 1080    OPEN "COM1:1200,N,8,1" AS #1: COM(1) ON
  15. 1090    CODE$ = STFREQ$
  16. 1100    PRINT #1,  PRE$; 
  17. 1110    PRINT #1, TOADR$; 
  18. 1120    PRINT #1, FROM$;
  19. 1130    PRINT #1, CODE$; 
  20. 1140    PRINT #1, CHR$(0);
  21. 1150    PRINT #1, CHR$(KHZ);
  22. 1160    PRINT #1, CHR$(HKHZ);
  23. 1170    PRINT #1, CHR$(MHZ);
  24. 1180    PRINT #1,  EOM$;
  25. 1190    FOR INDEX = 1 TO 200: NEXT INDEX
  26. 1200    COM(1) OFF: CLOSE #1 : RETURN
  27. 1210    '
  28. 2000    '-------------- DEFAULT FREQUENCIES ------------- 
  29. 2010    FREQ = 28.125: GOSUB 3010: RETURN: ' 10M
  30. 2020    FREQ = 24.9: GOSUB 3010: RETURN: ' 12M
  31. 2030    FREQ = 21.05: GOSUB 3010: RETURN: ' 15M
  32. 2040    FREQ = 14.05: GOSUB 3010: RETURN: ' 20M
  33. 2050    FREQ = 7.05: GOSUB 3010: RETURN: ' 40M
  34. 2060    FREQ = 3.501: GOSUB 3010: RETURN: ' 80M
  35. 2070    FREQ = 1.801: GOSUB 3010: RETURN: ' 160M
  36. 2080    '
  37. 3000    ' ---------------- FREQ CALCULATIONS ------------ 
  38. 3010    CFREQ = FREQ * 1000 * 10
  39. 3020    FREQ$ = STR$(CFREQ)
  40. 3030    IF CFREQ < 100000 THEN FREQ$ = "0" + FREQ$
  41. 3040    KHZ$ = MID$(FREQ$,6,2): HKHZ$ = MID$(FREQ$,4,2)
  42. 3050    MHZ$ = MID$(FREQ$,2,2)
  43. 3060    KHZ = VAL(LEFT$(KHZ$,1)) * 16 + VAL(RIGHT$(KHZ$,1))
  44. 3070    HKHZ = VAL(LEFT$(HKHZ$,1)) * 16 + VAL(RIGHT$(HKHZ$,1))
  45. 3080    MHZ = VAL(LEFT$(MHZ$,1)) * 16 + VAL(RIGHT$(MHZ$,1))
  46. 3090    GOSUB 1080: RETURN
  47. 3100    ' 
  48. 3110    FREQ = FREQ + .0001: GOSUB 3010: RETURN: ' UP 100 HZ
  49. 3120    FREQ = FREQ + .001: GOSUB 3010: RETURN: ' UP 1 KHZ
  50. 3130    FREQ = FREQ + .005: GOSUB 3010: RETURN: ' UP 5 KHZ
  51. 3140    FREQ = FREQ + .01: GOSUB 3010: RETURN: ' UP 10 KHZ
  52. 3150    FREQ = FREQ - .0001: GOSUB 3010: RETURN: ' DN 100 HZ
  53. 3160    FREQ = FREQ - .001: GOSUB 3010: RETURN: ' DN 1 KHZ
  54. 3170    FREQ = FREQ - .005: GOSUB 3010: RETURN: ' DN 5 KHZ
  55. 3180    FREQ = FREQ - .01: GOSUB 3010: RETURN: ' DN 10 KHZ
  56. 3190    '
  57. 4000    ' -------------------- FREQUENCY -------------------
  58. 4010        CLS: OPT = 0: O$ = ""                            
  59. 4020        LOCATE 2,33: PRINT "FREQUENCY OPTIONS"
  60. 4030        LOCATE  5,37: PRINT "1.  UP" ' 100 HZ
  61. 4040        LOCATE  6,37: PRINT "2.  UP1"  ' 1 KHZ
  62. 4050        LOCATE  7,37: PRINT "3.  UP5"  ' 5 KHZ    
  63. 4060        LOCATE  8,37: PRINT "4.  UP10"   ' 10 KHZ  
  64. 4070        LOCATE 10,37: PRINT "5.  DOWN"         
  65. 4080        LOCATE 11,37: PRINT "6.  DOWN1"        
  66. 4090        LOCATE 12,37: PRINT "7.  DOWN5"        
  67. 4100        LOCATE 13,37: PRINT "8.  DOWN10"       
  68. 4110        LOCATE 15,37: PRINT "9.  MAIN MENU"    
  69. 4120    LOCATE 18,35: PRINT "ENTER OPTION"
  70. 4130    WHILE ((LEN(O$)<1) OR  (VAL(O$)<1 OR VAL(O$)>9))
  71. 4140     O$ = INKEY$
  72. 4150    WEND 
  73. 4160    OPT = VAL(O$)
  74. 4170    IF OPT = 9 THEN GOTO 6010
  75. 4180    ON OPT GOSUB 3110, 3120, 3130, 3140, 3150, 3160, 3170, 3180
  76. 4190    GOTO 4010
  77. 4200    '
  78. 5000    ' ----------------------- BAND --------------------- 
  79. 5010    CLS: OPT = 0: O$ = ""   
  80. 5020    LOCATE 2,35: PRINT "SELECT BAND"
  81. 5030    LOCATE 7,34: PRINT "1.  10 METERS"
  82. 5040    LOCATE 8,34: PRINT "2.  12 METERS"
  83. 5050    LOCATE 9,34: PRINT "3.  15 METERS"
  84. 5060    LOCATE 10,34: PRINT "4.  20 METERS"
  85. 5070    LOCATE 11,34: PRINT "5.  40 METERS"
  86. 5080    LOCATE 12,34: PRINT "6.  80 METERS"
  87. 5090    LOCATE 13,34: PRINT "7.  160 METERS"
  88. 5100    LOCATE 18,35: PRINT "ENTER OPTION"
  89. 5110    WHILE ((LEN(O$)<1) OR  (VAL(O$)<1 OR VAL(O$)>7))
  90. 5120     O$ = INKEY$                                   
  91. 5130    WEND 
  92. 5140    OPT = VAL(O$)
  93. 5150    ON OPT  GOSUB 2010, 2020, 2030, 2040, 2050, 2060, 2070
  94. 5160    GOTO 6010
  95. 5170    '
  96. 6000    ' ------------------- MAIN MENU -------------------
  97. 6010     CLS: OPT = 0: O$ = ""   
  98. 6020    LOCATE 2,31: PRINT "MAIN MENU OPTIONS"
  99. 6030    LOCATE 7,35: PRINT "1.  BAND"
  100. 6040    LOCATE 9,35: PRINT "2.  FREQUENCY"
  101. 6050    LOCATE 11,35: PRINT "3.  QUIT"
  102. 6060    LOCATE 18,35: PRINT "ENTER OPTION"
  103. 6070    WHILE (LEN(O$)<1) OR  (VAL(O$)<1 OR VAL(O$)>3)
  104. 6080     O$ = INKEY$                                   
  105. 6090    WEND 
  106. 6100    OPT = VAL(O$)
  107. 6110    IF OPT = 1 THEN GOTO 5010
  108. 6120    IF OPT = 2 THEN GOTO 4010 
  109. 6130    IF OPT = 3 THEN CLS: END